home *** CD-ROM | disk | FTP | other *** search
/ CD Classic 39 / CD CLASSIC #39 (1998).iso / EMPRESA / FACTPLUS / DISCO7 / ARTICULO.XT_ / ARTICULO.bin
Text File  |  1997-11-14  |  3KB  |  104 lines
  1. <html>
  2. <head>
  3. <META HTTP-EQUIV="Expires" CONTENT="Mon, 06 Jan 1990 00:00:01 GMT">
  4. <title><<TituloPagina()>></title>
  5. <SCRIPT>
  6.  
  7. <<Java_Tienda()>>
  8. <<Java_Asc()>>
  9. <<Java_Chr()>>
  10. <<Java_Power()>>
  11. <<Java_Str()>>
  12. <<Java_Get()>>
  13. <<Java_Articulos()>>
  14. <<Java_Find()>>
  15. <<Java_Pos()>>
  16. <<Java_Familia()>>
  17.  
  18. function Add( cName )
  19. {
  20.    var nArticulo = parseInt( Articulos() ) + 1
  21.  
  22.    if( ! Find( cName ) )
  23.    {
  24.       document.cookie = Str( nArticulo ) + "=" + cName
  25.       document.cookie = "Artφculos=" + Str( nArticulo )
  26.       alert( "Producto a±adido a su carta de compras" )
  27.    }
  28.    else
  29.       alert( "Producto ya existente en su carta de compras" )
  30. }
  31.  
  32. function Erase( cName )
  33. {
  34.    var date = new Date()
  35.    var nAt  = Pos( cName )
  36.    var nArticulos = parseInt( Articulos() )
  37.    var n = 0
  38.  
  39.    if( nAt != 0 )
  40.    {
  41.       date.setTime( date.getTime() - 1 )
  42.       document.cookie = Str( nAt ) + "=" + Get( cName ) + "; expires=" + date.toGMTString()
  43.       for ( n = nAt ; n < nArticulos ; n++ )
  44.       {
  45.          document.cookie = Str( n ) + "=" + Get( Str( n + 1 ) )
  46.       }
  47.       document.cookie = Str( nArticulos ) + "=" + Get( Str( nArticulos ) ) + "; expires=" + date.toGMTString()
  48.       document.cookie = "Artφculos=" + Str( nArticulos - 1 )
  49.       alert( "Producto eliminado de la carta de compras" )
  50.    }
  51.    else
  52.       alert( "Producto inexistente en la carta de compras" )
  53. }
  54.  
  55. function CartaDeCompras()
  56. {
  57.    location.href = "carta.htm"
  58. }
  59.  
  60. function Siguiente( cName )
  61. {
  62.     location.href="articulo.htm?" + escape( cName )
  63. }
  64. function Anterior( cName )
  65. {
  66.     location.href="articulo.htm?" + escape( cName )
  67. }
  68.  
  69. </SCRIPT>
  70. </head>
  71.  
  72. <<FONDO(.T.)>>
  73. <div align="center">
  74.  
  75. <table border="0" aling="center">
  76.     <tr>
  77.         <td aling="left"><a href="JavaScript:Anterior( '<<Anterior( parameters )>>')"><img src="ant.gif" border="0" ALT="Anterior"></a></td>
  78.         <td width="350"> <center><table border="2">
  79.                          <tr>
  80.                            <td><< logo () >></td>
  81.                          </tr>
  82.                          </table></center>
  83.         <td aling="right"><a href="JavaScript:Siguiente( '<<Siguiente( parameters )>>')"><img src="sig.gif" border="0" ALT="Siguiente"></a></td>
  84.     </tr>
  85. </table>
  86.  
  87. <p align="center"><< NomEmp( parameters ) >></p>
  88.  
  89. <center><<Art(parameters, "#EE0077", "#FFFFFF", "#EE0077", "#FFFFFF", "#FFFFD2", "#000000","#EE0077", "#FFFFFF" )>></center><br><br>
  90. <br>
  91. <table border="0">
  92.     <tr>
  93.         <TD><A HREF="JavaScript:VerFamilia( '<<Familia( parameters )>>' )"><IMG SRC="Indi.jpg" BORDER="0" ALT="Volver a la relaci≤n de artφculos de este catßlogo"</a></TD>
  94.         <td><a href="JavaScript:Add( '<<parameters>>' )"><img src="anadi.jpg" border="0" ALT="A±adir"></a></td>
  95.         <td><a href="JavaScript:Erase( '<<parameters>>' )"><img src="elimi.jpg" border="0" ALT="Eliminar"></a></td>
  96.         <td><a href="JavaScript:CartaDeCompras()"><img src="ver.jpg" border="0" ALT="Ver Pedido"></a></td>
  97.         <td><a href="JavaScript:Tienda()"><img src="tien.jpg" border="0" ALT="Ver Pedido"></a></td>
  98.     </tr>
  99. </table>
  100. <br>
  101. <CENTER><< Direccion( parameters ) >></CENTER>
  102. </center></div>
  103. </body>
  104. </html>